home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / B-Business / (c)b2.d64 / biorhythm.c (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  2KB  |  90 lines
  1. 1 REM CONVERTED FROM PET TO COMMODORE 64BY RICK BEAM
  2. 2 REM MODIFIED SLIGHTLY BY DAVID BRADLEY - OCTOBER 4, 1983
  3. 5 PRINTCHR$(142):PRINTCHR$(8)
  4. 99 POKE53281,0:POKE53280,0
  5. 100 REM BIORHYTHMN 1.5
  6. 110 PRINT"[147]";
  7. 120 H=100.01:F=.001
  8. 130 DIMM%(12),M$(12)
  9. 140 FORI=1TO12:READM%(I):NEXT
  10. 150 FORI=1TO12:READM$(I):NEXT
  11. 160 D$=""
  12. 170 R$="[157]"
  13. 180 PI=-2*(null)
  14. 190 INPUT"INPUT NAME PLEASE";N$
  15. 200 INPUT"INPUT BIRTHDAY   MM,DD,YY ";MB,DB,YB
  16. 210 TB=0
  17. 220 T1=YB/4
  18. 230 IFMB<2THEN280
  19. 240 FORI=1TOMB-1
  20. 250 TB=TB+M%(I)
  21. 260 NEXT
  22. 270 IF(T1<>INT(T1))AND(MB>2)THENTB=TB+1
  23. 280 TB=TB+365*YB+INT(T1)+DB
  24. 290 INPUT"INPUT START DATE MM,DD,YY ";MS,DS,YS
  25. 300 TS=0
  26. 310 T1=YS/4
  27. 320 IFMS<2THEN370
  28. 330 FORI=1TOMS-1
  29. 340 TS=TS+M%(I)
  30. 350 NEXT
  31. 360 IF(T1<>INT(T1))AND(MS>2)THENTS=TS+1
  32. 370 TS=TS+365*YS+INT(T1)+DS
  33. 380 TT=TS-TB
  34. 390 PS=23*(TT/23-INT(TT/23))
  35. 400 ES=28*(TT/28-INT(TT/28))
  36. 410 IS=33*(TT/33-INT(TT/33))
  37. 420 GOSUB580
  38. 430 FORI=0TO38
  39. 440 P=8+8*SIN((PS+I)*PI/23)+.5
  40. 450 PRINT""LEFT$(R$,I+1);LEFT$(D$,P+2);"[159][215]"
  41. 460 NEXT
  42. 470 FORI=1TO38
  43. 480 E=8+8*SIN((ES+I)*PI/28)+.5
  44. 490 PRINT""LEFT$(R$,I+1);LEFT$(D$,E+2);"[158][209]"
  45. 500 NEXT
  46. 510 FORI=1TO38
  47. 520 IT=8+8*SIN((IS+I)*PI/33)+.5
  48. 530 PRINT""LEFT$(R$,I+1);LEFT$(D$,IT+2);"*"
  49. 540 NEXT
  50. 550 GETA$:IFA$=""THEN550
  51. 560 PRINT"                                        [145][145][145]"
  52. 570 GOTO290
  53. 580 PRINT"[147]";
  54. 590 PRINT"BIORHYTHMN FOR "N$"[146] BORN ";
  55. 600 PRINTM$(MB);DB;"[157],19";MID$(STR$(YB/H+F),3,2)
  56. 610 PRINT"[176][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][174]"
  57. 620 FORI=1TO8
  58. 630 PRINT"[171] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [179]"
  59. 640 NEXT
  60. 650 PRINT"[171][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][179]"
  61. 660 FORI=1TO8
  62. 670 PRINT"[171] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [179]"
  63. 680 NEXT
  64. 690 PRINT"[173][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][189]"
  65. 700 MD=MS:D1=DS:YD=YS
  66. 710 FORI=0TO38
  67. 720 IFI/2<>INT(I/2)THENPRINT"";:GOTO790
  68. 730 A$=STR$(D1)
  69. 740 IFLEN(A$)<3THENB$=RIGHT$(A$,1):GOTO760
  70. 750 B$=MID$(A$,2,1)+"[157]"+RIGHT$(A$,1)+"[145]"
  71. 760 PRINTB$;
  72. 770 C$="[146][157][157][157][157][157][157][157][145]"
  73. 780 IF(D1=1)OR(D1=2)THENPRINT"[157]"M$(MD)" 19"MID$(STR$(YD/H+F),3,2);C$;
  74. 790 D1=D1+1
  75. 800 IFD1<=M%(MD)THEN850
  76. 810 IFMD<>2THEN840
  77. 820 IFYD/4<>INT(YD/4)THEN840
  78. 830 IFD1<30THEN850
  79. 840 D1=1:MD=MD+1:IFMD>12THENMD=1:YD=YD+1
  80. 850 NEXT
  81. 860 PRINT"":PRINT"PHYSICAL=[159][215]  EMOTIONAL=[158][209]  INTELLECTUAL=*";
  82. 870 C$="UP     CRIT     DWN"
  83. 880 PRINT"[157]";
  84. 890 FORI=1TOLEN(C$)
  85. 900 PRINTMID$(C$,I,1)"[157]";
  86. 910 NEXT
  87. 920 RETURN
  88. 930 DATA31,28,31,30,31,30,31,31,30,31,30,31
  89. 940 DATA"JAN","FEB","MAR","APR","MAY","JUN","JUL","AUG","SEP","OCT","NOV","DEC"
  90.